home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8506.arc / DISPLA.COB < prev    next >
Text File  |  1986-09-14  |  2KB  |  53 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.  DISPLA.
  3.  
  4.       *                         SCREEN DISPLAY BENCHMARK
  5.  
  6.        ENVIRONMENT DIVISION.
  7.        CONFIGURATION SECTION.
  8.        SOURCE-COMPUTER.  IBM-PC.
  9.        OBJECT-COMPUTER.  IBM-PC.
  10.  
  11.        DATA DIVISION.
  12.  
  13.        WORKING-STORAGE SECTION.
  14.  
  15.        77  SCREEN-LINE            PIC X(72).
  16.  
  17.        01  CLEAR-1.
  18.            05  ESC-LEFT-BRACK     PIC S9999 COMP  VALUE 7003.
  19.            05  TWO-J              PIC XX          VALUE "2J".
  20.        01  CLEAR-SCREEN   REDEFINES CLEAR-1       PIC XXXX.
  21.  
  22.       * COPY "TIMERDAT.CBL" for RMC, COPY TIMERDAT FOR Realia
  23.        COPY TIMERDAT.
  24.  
  25.        PROCEDURE DIVISION.
  26.        000-MAINLINE.
  27.            MOVE ALL "0" TO SCREEN-LINE.
  28.            ACCEPT TIMER-START FROM TIME.
  29.            PERFORM 120-DISP-LOOP THRU 120-EXIT 10 TIMES.
  30.            ACCEPT TIMER-END FROM TIME.
  31.            PERFORM 2400-CALC-TIME THRU 2400-EXIT.
  32.            DISPLAY ELAPSED-TIME.
  33.            STOP RUN.
  34.  
  35.        120-DISP-LOOP.
  36.  
  37.       * FOLLOWING LINE FOR RMCOBOL ONLY
  38.       *    DISPLAY " " LINE 1 POSITION 1 ERASE.
  39.  
  40.       * FOLLOWING LINE FOR REALIA ONLY
  41.            DISPLAY CLEAR-SCREEN.
  42.  
  43.            PERFORM 130-DISP-LOOP THRU 130-EXIT 25 TIMES.
  44.  
  45.        120-EXIT.    EXIT.
  46.  
  47.        130-DISP-LOOP.
  48.            DISPLAY SCREEN-LINE.
  49.        130-EXIT.    EXIT.
  50.  
  51.       * COPY "TIMERPRO.CBL" for RMC, COPY TIMERPRO FOR Realia
  52.        COPY TIMERPRO.
  53.